home *** CD-ROM | disk | FTP | other *** search
- object ChangeForm: TChangeForm
- Left = 442
- Top = 341
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = '�t�@�C���̉𓀐�ύX'
- ClientHeight = 353
- ClientWidth = 400
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = '�l�r �o�S�V�b�N'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- Position = poScreenCenter
- Scaled = False
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 16
- object MainLabel: TLabel
- Left = 16
- Top = 13
- Width = 51
- Height = 16
- Caption = '�𓀐�:'
- end
- object CopyDirNameLabel: TLabel
- Left = 23
- Top = 33
- Width = 354
- Height = 14
- AutoSize = False
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = '�l�r �o�S�V�b�N'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 22
- Top = 241
- Width = 54
- Height = 16
- Caption = '�h���C�u:'
- end
- object NeedLabel: TLabel
- Left = 41
- Top = 297
- Width = 165
- Height = 16
- Caption = '�𓀌�̃t�@�C���T�C�Y:'
- end
- object TechDriveLabel: TLabel
- Left = 40
- Top = 318
- Width = 143
- Height = 16
- Caption = 'C�h���C�u�̋󂫗e��:'
- end
- object TechByteLabel: TLabel
- Left = 281
- Top = 297
- Width = 78
- Height = 20
- Alignment = taRightJustify
- AutoSize = False
- Caption = '3.3MB'
- end
- object TechDriveByteLabel: TLabel
- Left = 280
- Top = 315
- Width = 79
- Height = 19
- Alignment = taRightJustify
- AutoSize = False
- Caption = '330.5MB'
- end
- object DriveComboBox: TDriveComboBox
- Left = 19
- Top = 259
- Width = 213
- Height = 19
- DirList = DirectoryListBox
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = '�l�r �o�S�V�b�N'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- TextCase = tcUpperCase
- OnChange = DriveComboBoxChange
- end
- object MakeDirButton: TButton
- Left = 245
- Top = 53
- Width = 132
- Height = 29
- Caption = '�ިڸ�ذ�쐬(&M)'
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- OnClick = MakeDirButtonClick
- end
- object SetteiButton: TButton
- Left = 245
- Top = 218
- Width = 132
- Height = 29
- Caption = '�ݒ�(&S)'
- Default = True
- TabOrder = 2
- OnClick = SetteiButtonClick
- end
- object CancelButton: TButton
- Left = 245
- Top = 251
- Width = 132
- Height = 29
- Cancel = True
- Caption = '���~(&C)'
- TabOrder = 3
- OnClick = CancelButtonClick
- end
- object DirectoryListBox: TDirectoryListBox
- Left = 19
- Top = 53
- Width = 213
- Height = 181
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = '�l�r �o�S�V�b�N'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- TabOrder = 4
- OnChange = DirectoryListBoxChange
- end
- end
-